(let ([f (lambda () 12)]) (fx+ (apply f '()) 1))
=> 13
(let ([f (lambda (x) (fx+ x 12))]) (fx+ (apply f 13 '()) 1))
=> 26
(let ([f (lambda (x) (fx+ x 12))]) (fx+ (apply f (cons 13 '())) 1))
=> 26
(let ([f (lambda (x y z) (fx+ x (fx* y z)))]) (fx+ (apply f 12 '(7 2)) 1))
=> 27
(cons (apply vector '(1 2 3 4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 '(2 3 4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 '(3 4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 '(4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 '(5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 '(6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 6 '(7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 6 7 '(8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 6 7 8 ()) '())
=> (#(1 2 3 4 5 6 7 8))
(let ([f (lambda () 12)]) (fx+ (apply f '()) 1))
=> 13
(let ([f (lambda (x) (fx+ x 12))]) (fx+ (apply f 13 '()) 1))
=> 26
(let ([f (lambda (x) (fx+ x 12))]) (fx+ (apply f (cons 13 '())) 1))
=> 26
(let ([f (lambda (x y z) (fx+ x (fx* y z)))]) (fx+ (apply f 12 '(7 2)) 1))
=> 27
(cons (apply vector '(1 2 3 4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 '(2 3 4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 '(3 4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 '(4 5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 '(5 6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 '(6 7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 6 '(7 8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 6 7 '(8)) '())
=> (#(1 2 3 4 5 6 7 8))
(cons (apply vector 1 2 3 4 5 6 7 8 ()) '())
=> (#(1 2 3 4 5 6 7 8))